home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c12a.d64 / nova.File copier (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  61 lines
  1. 10 POKE45,PEEK(174):POKE46,PEEK(175):CLR
  2. 20 SP$="                                       "
  3. 30 DX=PEEK(186):DV$="0:":OPEN15,DX,15:DIMF$(80),T$(80):OPEN9,0
  4. 70 PRINT"[147][206]OVATERM 9.3 FILE COPIER":ML=4030
  5. 80 PRINT"[211]OURCE: DEVICE 8  DRIVE 0"
  6. 90 PRINT"[196]EST  : DEVICE 9  DRIVE 0":P9=2
  7. 100 IFPEEK(1023)THENPRINT"([210][193][205] EXPANDER IS DEVICE"PEEK(1023)"[157])"
  8. 110 PRINT""TAB(15);:INPUT#9,I$:A=VAL(I$):IFA<8ORA>16THENA=8
  9. 120 GOSUB520:IFERTHEN110
  10. 130 DV=A
  11. 140 POKE211,24:INPUT#9,I$:A=VAL(I$):IFA>19THEN140
  12. 150 DV$=MID$(STR$(A),2)+":":PRINT
  13. 160 POKE211,15:INPUT#9,I$:A=VAL(I$):IFA<8ORA>16THENA=9
  14. 170 GOSUB520:IFERTHEN160
  15. 180 DW=A
  16. 190 POKE211,24:INPUT#9,I$:A=VAL(I$):IFA>19THEN190
  17. 200 DW$=MID$(STR$(A),2)+":":PRINT
  18. 210 CLOSE15:OPEN15,DV,15:OPEN14,DW,15:IFPEEK(1023)THENPRINT""
  19. 220 PRINT"[208]ATTERN MATCH: [160][157]";:INPUT#9,I$:IFI$="[160]"THENI$="*"
  20. 230 PRINT:PRINT"[211]ELECT FILES FOR COPYING":PRINT"[217][146]ES  [206][146]O  [211][146]TART  [209][146]UIT"
  21. 240 OPEN1,DV,0,"$"+DV$+I$:INPUT#15,E,E$:IFE>19THEN420
  22. 250 GET#1,A$,A$:SYSML+3:PRINT:PRINTZ$:FL=0
  23. 260 SYSML+3:IFRIGHT$(Z$,1)="."ORRIGHT$(Z$,4)="FREE"THENPRINTZ$:GOTO360
  24. 270 IFMID$(Z$,25,1)="R"THEN260
  25. 280 PRINTZ$"  COPY?";
  26. 290 GETA$:IFA$="N"THENPOKE211,0:PRINTSP$;:POKE211,0:GOTO260
  27. 300 IFA$="S"THENPOKE211,0:PRINTSP$:GOTO360
  28. 310 IFA$="Q"THENPOKE211,0:PRINTSP$:GOTO430
  29. 320 IFA$<>"Y"THEN290
  30. 330 J=0:FORI=7TO23:IFMID$(Z$,I,1)=CHR$(34)THENJ=I:I=23
  31. 340 NEXT:F$=MID$(Z$,7,J-7):IFF$=","ORF$=""THENPOKE211,0:GOTO260
  32. 350 FL=FL+1:F$(FL)=F$:T$(FL)=MID$(Z$,25,1):PRINT"[157][157][157][157][157]     ":IFFL<80THEN260
  33. 360 PRINT:CLOSE1:IFFL=0THEN430
  34. 361 PRINT"[193][146]SK, [210][146]EPLACE, OR [211][146]KIP":PRINT"EXISTING FILES?  [146][157]";
  35. 362 GETA$:EX=-(A$="A")-2*(A$="R")-3*(A$="S"):IFEX=0THEN362
  36. 363 PRINTCHR$(ASC(A$)+128):PRINT
  37. 370 FORI=1TOFL:I$=F$(I):PRINT"[195]OPYING "I$","T$(I);
  38. 380 OPEN2,DV,2,DV$+I$:INPUT#15,E,E$:IFE>19THEN410
  39. 390 OPEN3,DW,3,DW$+I$+","+T$(I)+",W":INPUT#14,E,E$:IFE<>63THEN399
  40. 391 IFEX=3THEN410
  41. 392 IFEX=2ORE=0THENCLOSE3:PRINT#14,"S"DW$I$:GOTO390
  42. 393 PRINTTAB(28)"REPLACE?";:POKE211,28
  43. 394 GETA$:IFA$<>"Y"ANDA$<>"N"THEN394
  44. 395 IFA$="N"THENE$="NOT COPIED":GOTO410
  45. 396 PRINT"        ";:POKE211,28:E=0:GOTO392
  46. 399 IFE>19THEN410
  47. 400 SYSML
  48. 410 CLOSE2:CLOSE3:PRINTTAB(28)E$:NEXT:GOTO430
  49. 420 PRINT:PRINTE$
  50. 430 CLOSE1:CLOSE14:CLOSE15:PRINT"[195]OPY MORE FILES?  [146][157]";
  51. 440 GETA$:IFA$<>"Y"ANDA$<>"N"THEN440
  52. 450 IFA$="Y"THENPRINT"YES":GOTO70
  53. 460 PRINT"NO"
  54. 470 IFPEEK(6)<255THENEND
  55. 480 CLOSE15:OPEN15,DX,15:OPEN2,DX,0,"PROG MENU":INPUT#15,E:CLOSE2:IFE>19THEN500
  56. 490 LOAD"PROG MENU",DX
  57. 500 OPEN2,DX,0,"NOVATERM ?.?*":INPUT#15,E:CLOSE2:IFE>19THENEND
  58. 510 LOAD"NOVATERM ?.?*",DX,1
  59. 520 ER=0:CLOSE16:OPEN16,A,15:CLOSE16:IF128ANDSTTHENER=1
  60. 530 RETURN
  61.